home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / i / imagefxv2.1a.lha / ImageFX / Rexx / AutoFX / SaveBufferAs_MPEG.ifx.post < prev    next >
Text File  |  1996-03-02  |  966b  |  44 lines
  1. /*
  2.  * SaveBufferAs_MPEG.ifx.post
  3.  * Written by Thomas Krehbiel
  4.  *
  5.  * Encode an MPEG stream from a series of frames.  Uses third-party
  6.  * MPEG encoder software.
  7.  *
  8.  * Inputs:
  9.  *    Word(Arg(1),1) = Sequence number
  10.  *    Word(Arg(1),2) = Total number of frames (N)
  11.  *
  12.  * Returns:
  13.  *    0 if successful, non-zero on failure
  14.  *
  15.  */
  16.  
  17. OPTIONS RESULTS
  18.  
  19. base     = 'Autofx_MPEG_'
  20.  
  21. seqnum   = Word(Arg(1),1)
  22. framemax = Word(Arg(1),2)
  23.  
  24. mfile   = GETCLIP(base||'File')
  25. newpath = GETCLIP(base||'Path')
  26. neww    = GETCLIP(base||'Width')
  27. newh    = GETCLIP(base||'Height')
  28. xing    = GETCLIP(base||'Xing')
  29.  
  30. IF RIGHT(newpath,1) ~= ':' THEN newpath = newpath || '/'
  31.  
  32. opts = ""
  33. IF xing THEN opts = opts || '-XING'
  34.  
  35. cli = 'CON:0/0//80/MPEG_Encoder_Output/AUTO/CLOSE/SCREENIMAGEFX.1'
  36. /*cli = 'ram:mpegoutput'*/
  37.  
  38. cmd = 'MPEG/mpeg >'cli '-h' neww '-v' newh '-a 1 -b' framemax '-s' mfile opts newpath'mpeg_temp'
  39.  
  40. ADDRESS COMMAND cmd
  41. ADDRESS COMMAND 'Delete' newpath'mpeg_temp#? QUIET'
  42.  
  43. EXIT
  44.